home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Graphics / Graphic Utilities / Postscript Stuff / Spiral Text < prev   
Encoding:
Text File  |  1987-06-18  |  2.1 KB  |  66 lines  |  [GPPS/LIST]
  1.  
  2.  
  3. %!PS-Adobe-1.0
  4. %%Title: Spiral
  5. %%DocumentFonts: (atend)
  6. %%Creator: Price M. Collins
  7. %%CreationDate: 11/22/85 12:44 PM
  8. %%Pages: (atend)
  9. %%BoundingBox: 0 0 612 792
  10. %%EndComments
  11. grestoreall
  12. initgraphics
  13. /pageproc {} def
  14. %%EndProlog
  15. % Spiral text PostScript program
  16. % Spiraltext spirals text clockwise on baseline centered at (0,0)
  17. % Takes 4 arguments: string to print & starting fontsize, radius & angle
  18. /Spiraltext
  19.   { $Spiraldict begin
  20.      /startangle exch def    /originalradius exch def   /fontsize exch def   /str exch def
  21.      /radius originalradius def  /totalangle 0 def    /anglemoved 15 def
  22.      /Times-Roman findfont fontsize scalefont setfont
  23.      gsave  startangle  rotate
  24.      { fontsize .4 gt radius 10 gt and
  25.         { str
  26.            { /charcode exch def ( ) dup 0 charcode put showandrotate } forall
  27.         } { exit } ifelse
  28.      }  loop
  29.      grestore end
  30.   } def
  31. /$Spiraldict 16 dict def
  32. $Spiraldict begin
  33. /showandrotate  % show character upright on spiral & rotate clockwise by character angle.
  34.    { /char exch def
  35.      anglemoved 15 gt fontsize .4 gt and
  36.        { /anglemoved anglemoved 15 sub def
  37.          /fontsize fontsize .25 sub def
  38.          /Times-Roman findfont fontsize scalefont setfont } if
  39.      /charwidth char stringwidth pop 2 div def
  40.      /halfangle charwidth 2 radius fontsize 4 div add mul 3.141593 mul div 360 mul def
  41.      gsave
  42.         halfangle neg rotate  % Rotate clockwise by half the angle of character width
  43.         radius 0 translate   % Translate out to spiral
  44.         90 halfangle add neg rotate  % Position character upright on baseline
  45.         charwidth neg 0 moveto char 
  46.         anglemoved 30 lt {show} if
  47.      grestore
  48.      /fullangle halfangle 2 mul def
  49.      fullangle neg rotate
  50.      /totalangle totalangle fullangle add def
  51.      /anglemoved anglemoved fullangle add def
  52.      /radius 1 totalangle 2400 div sub originalradius mul def
  53.    } def
  54. end
  55. % Main program
  56. 300 400 translate% start at center of page
  57. topline
  58.   20 60 180 
  59.  
  60. Spiraltext
  61. showpage
  62. %%Trailer
  63. %%Pages: 0
  64. %%DocumentFonts:
  65.